home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / i13b1.exe / ICMNDS.TXT < prev    next >
Encoding:
INI File  |  1997-01-21  |  23.0 KB  |  439 lines
  1. [Commands]
  2. n31=#klugs disabled
  3. n32=3:last: { 
  4. n33=  msg $nick -[( Da last letter in the answer for %werd is %lstletter )]-
  5. n34=  echo $active $nick got da last letter %lstletter
  6. n35=}
  7. n36=3:letter: { 
  8. n37=  msg $nick -[( Da 1st letter in the answer for %werd is %1stletter )]-
  9. n38=  echo $active $nick got da first letter %1stletter
  10. n39=}
  11. n40=3:klue: {
  12. n41=  msg $nick -[( Da clue for %werd is -- $+ %klue )]- | /echo 5 $active $nick got clue for %werd - %klue
  13. n42=}
  14. n43=3:klugs: {
  15. n44=  if $parm2 = %word { msg $nick -[( YOU WON!  %werd was actually %word $+ ! )]- | msg %klugschan -[( $nick got it RIGHT! THE ANSWER WAS %word $+ ! )]- |  %oldpoints = [ % $+ [ $nick $+ [ points ] ] ] | inc [ % $+ [ $nick $+ [ points ] ] ] 5 | %removethis = $nick $+ - $+ %oldpoints | %ptsevery = $remove(%ptsevery,%removethis) | //set %ptsevery %ptsevery [ $nick $+ [ - $+ [ % $+ [ $nick $+ [ points ] ] ] ] ] | /msg %klugschan Skore so far: %ptsevery | unset %werd | unset %word | topic %klugschan -[( %ptsevery )]- | disable #klugs }
  16. n45=  else { msg $nick -[( Sorry, that ain't da word we're looking fer. )]- | /echo 3 $active $nick incorrect guessed $parm2 for the anser %word }
  17. n46=}
  18. n47=#klugs end
  19. n48=+3:HELP: {
  20. n49=  notice $nick -[( FUCK OFF!  YOU GOT NUFIN! )]-
  21. n50=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  22. n51=}
  23. n52=+3:OP: {
  24. n53=  notice $nick -[( FUCK OFF!  YOU GOT NUFIN! )]-
  25. n54=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  26. n55=}
  27. n56=+3:+V: {
  28. n57=  notice $nick -[( FUCK OFF!  YOU GOT NUFIN! )]-
  29. n58=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  30. n59=}
  31. n60=+3:INVITE: {
  32. n61=  notice $nick -[( FUCK OFF!  YOU GOT NUFIN! )]-
  33. n62=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  34. n63=}
  35. n64=+10:*: {
  36. n65=  notice $nick -[( UR already banned from any channel I have ops on.  Why are you trying to get $parm1 $+ 'ed? )]-
  37. n66=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93) 
  38. n67=  halt
  39. n68=}
  40. n69=+10:*: {
  41. n70=  notice $nick -[( UR already banned from any channel I have ops on.  Why are you trying to get $parm1 $+ 'ed? )]-
  42. n71=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  43. n72=  halt
  44. n73=}
  45. n74=+30:HELP: {
  46. n75=  notice $nick -[( /ctcp $me INVITE #<CHANNEL> to get invited to that channel. )]-
  47. n76=  notice $nick -[( /ctcp $me +v #<CHANNEL> to get voiced in that channel. )]-
  48. n77=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  49. n78=  halt
  50. n79=}
  51. n80=+30:+V: {
  52. n81=  notice $nick -[( Voicing you in $parm2 )]-  
  53. n82=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  54. n83=  mode $parm2 +v $nick
  55. n84=}
  56. n85=+30:INVITE: {
  57. n86=  notice $nick -[( Inviting you to $parm2 )]-  
  58. n87=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  59. n88=  invite $nick $parm2
  60. n89=}
  61. n90=+100:HELP: {
  62. n91=  notice $nick -[( /ctcp $me OP #<CHANNEL> to get oped in that channel. )]-
  63. n92=  notice $nick -[( /ctcp $me INVITE #<CHANNEL> to get invited to that channel. )]-
  64. n93=  notice $nick -[( /ctcp $me +v #<CHANNEL> to get voiced in that channel. )]-
  65. n94=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  66. n95=  halt
  67. n96=}
  68. n97=+100:OP: {
  69. n98=  notice $nick -[( Oping you in $parm2 )]-  
  70. n99=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  71. n100=  mode $parm2 +o $$1
  72. n101=}
  73. n102=+100:+V: {
  74. n103=  notice $nick -[( Voicing you in $parm2 )]-  
  75. n104=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  76. n105=  mode $parm2 +v $nick
  77. n106=}
  78. n107=+100:INVITE: {
  79. n108=  notice $nick -[( Inviting you to $parm2 )]-  
  80. n109=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  81. n110=  invite $$1 $parm2
  82. n111=}
  83. n112=#5pack disabled
  84. n113=3:XDCC LIST: {
  85. n114=  echo 3 -s {I} Recieved CTCP $parm1 $parm2 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  86. n115=  set %packslots { %packslot - $send(0) }
  87. n116=  notice $nick  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  88. n117=  notice $nick Total offered-[ $+ %packsize3 $+ k $+ ]  
  89. n118=  notice $nick  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  90. n119=  if %pack1extra != no { notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | notice $nick  áá^- %pack1extra }
  91. n120=  else {
  92. n121=    notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  93. n122=  }
  94. n123=  if %pack2extra != no { notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | notice $nick áá^- %pack2extra }
  95. n124=  else {
  96. n125=    notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  97. n126=  }
  98. n127=  if %pack3extra != no { notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | notice $nick áá^- %pack3extra }
  99. n128=  else {
  100. n129=    notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  101. n130=  }
  102. n131=  if %pack4extra != no { notice $nick #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ] | notice $nick áá^- %pack4extra }
  103. n132=  else {
  104. n133=    notice $nick #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ]
  105. n134=  }
  106. n135=  if %pack5extra != no { notice $nick #5-[ $+ %pack5size $+ k $+ ]- $+ %pack5gets $+ x $+ -[ $+ %pack5desc - %pack5desc1 $+ ] | notice $nick áá^- %pack5extra }
  107. n136=  else {
  108. n137=    notice $nick #5-[ $+ %pack5size $+ k $+ ]- $+ %pack5gets $+ x $+ -[ $+ %pack5desc - %pack5desc1 $+ ]
  109. n138=  }
  110. n139=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | notice $nick Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  111. n140=  else {
  112. n141=    notice $nick Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  113. n142=    notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo]
  114. n143=  }
  115. n144=}
  116. n145=3:XDCC SEND #1: {
  117. n146=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  118. n147=  else goto send
  119. n148=  halt
  120. n149=  :send
  121. n150=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  122. n151=  inc %packleached %pack1size
  123. n152=  inc %pack1gets 1
  124. n153=  notice $nick -[( Preparing to send you  $+ %pack1desc $+  which is  $+ %pack1size $+ k $+  )]-
  125. n154=  dcc send $nick %pack1
  126. n155=}
  127. n156=3:XDCC SEND #2: {
  128. n157=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  129. n158=  else goto send
  130. n159=  halt
  131. n160=  :send
  132. n161=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  133. n162=  inc %packleached %pack2size
  134. n163=  inc %pack2gets 1
  135. n164=  notice $nick -[( Preparing to send you  $+ %pack2desc $+  which is  $+ %pack2size $+ k $+  )]-
  136. n165=  dcc send $nick %pack2
  137. n166=}
  138. n167=3:XDCC SEND #3: {
  139. n168=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  140. n169=  else goto send
  141. n170=  halt
  142. n171=  :send
  143. n172=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  144. n173=  inc %packleached %pack3size
  145. n174=  inc %pack3gets 1
  146. n175=  notice $nick -[( Preparing to send you  $+ %pack3desc $+  which is  $+ %pack3size $+ k $+  )]-
  147. n176=  dcc send $nick %pack3
  148. n177=}
  149. n178=3:XDCC SEND #4: {
  150. n179=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  151. n180=  else goto send
  152. n181=  halt
  153. n182=  :send
  154. n183=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  155. n184=  inc %packleached %pack4size
  156. n185=  inc %pack4gets 1
  157. n186=  notice $nick -[( Preparing to send you  $+ %pack4desc $+  which is  $+ %pack4size $+ k $+  )]-
  158. n187=  dcc send $nick %pack4
  159. n188=}
  160. n189=3:XDCC SEND #5: {
  161. n190=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  162. n191=  else goto send
  163. n192=  halt
  164. n193=  :send
  165. n194=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  166. n195=  inc %packleached %pack5size
  167. n196=  inc %pack5gets 1
  168. n197=  notice $nick -[( Preparing to send you  $+ %pack5desc $+  which is  $+ %pack5size $+ k $+  )]-
  169. n198=  dcc send $nick %pack5
  170. n199=}
  171. n200=#5pack end
  172. n201=#4pack disabled
  173. n202=3:XDCC LIST: {
  174. n203=  echo 3 -s {I} Recieved CTCP $parm1 $parm2 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  175. n204=  set %packslots { %packslot - $send(0) }
  176. n205=  notice $nick  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  177. n206=  notice $nick Total offered-[ $+ %packsize2 $+ k $+ ]  
  178. n207=  notice $nick  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  179. n208=  if %pack1extra != no { notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | notice $nick  áá^- %pack1extra }
  180. n209=  else {
  181. n210=    notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  182. n211=  }
  183. n212=  if %pack2extra != no { notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | notice $nick áá^- %pack2extra }
  184. n213=  else {
  185. n214=    notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  186. n215=  }
  187. n216=  if %pack3extra != no { notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | notice $nick áá^- %pack3extra }
  188. n217=  else {
  189. n218=    notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  190. n219=  }
  191. n220=  if %pack4extra != no { notice $nick #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ] | notice $nick áá^- %pack4extra }
  192. n221=  else {
  193. n222=    notice $nick #4-[ $+ %pack4size $+ k $+ ]- $+ %pack4gets $+ x $+ -[ $+ %pack4desc - %pack4desc1 $+ ]
  194. n223=  }
  195. n224=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | notice $nick Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  196. n225=  else {
  197. n226=    notice $nick Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  198. n227=    notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo]
  199. n228=  }
  200. n229=}
  201. n230=3:XDCC SEND #1: {
  202. n231=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  203. n232=  else goto send
  204. n233=  halt
  205. n234=  :send
  206. n235=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  207. n236=  inc %packleached %pack1size
  208. n237=  inc %pack1gets 1
  209. n238=  notice $nick -[( Preparing to send you  $+ %pack1desc $+  which is  $+ %pack1size $+ k $+  )]-
  210. n239=  dcc send $nick %pack1
  211. n240=}
  212. n241=3:XDCC SEND #2: {
  213. n242=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  214. n243=  else goto send
  215. n244=  halt
  216. n245=  :send
  217. n246=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  218. n247=  inc %packleached %pack2size
  219. n248=  inc %pack2gets 1
  220. n249=  notice $nick -[( Preparing to send you  $+ %pack2desc $+  which is  $+ %pack2size $+ k $+  )]-
  221. n250=  dcc send $nick %pack2
  222. n251=}
  223. n252=3:XDCC SEND #3: {
  224. n253=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  225. n254=  else goto send
  226. n255=  halt
  227. n256=  :send
  228. n257=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  229. n258=  inc %packleached %pack3size
  230. n259=  inc %pack3gets 1
  231. n260=  notice $nick -[( Preparing to send you  $+ %pack3desc $+  which is  $+ %pack3size $+ k $+  )]-
  232. n261=  dcc send $nick %pack3
  233. n262=}
  234. n263=3:XDCC SEND #4: {
  235. n264=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  236. n265=  else goto send
  237. n266=  halt
  238. n267=  :send
  239. n268=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  240. n269=  inc %packleached %pack4size
  241. n270=  inc %pack4gets 1
  242. n271=  notice $nick -[( Preparing to send you  $+ %pack4desc $+  which is  $+ %pack4size $+ k $+  )]-
  243. n272=  dcc send $nick %pack4
  244. n273=}
  245. n274=#4pack end
  246. n275=#3pack disabled
  247. n276=3:XDCC LIST: {
  248. n277=  echo 3 -s {I} Recieved CTCP $parm1 $parm2 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  249. n278=  set %packslots { %packslot - $send(0) }
  250. n279=  notice $nick  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  251. n280=  notice $nick Total offered-[ $+ %packsize1 $+ k $+ ]  
  252. n281=  notice $nick  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  253. n282=  if %pack1extra != no { notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | notice $nick  áá^- %pack1extra }
  254. n283=  else {
  255. n284=    notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  256. n285=  }
  257. n286=  if %pack2extra != no { notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | notice $nick áá^- %pack2extra }
  258. n287=  else {
  259. n288=    notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  260. n289=  }
  261. n290=  if %pack3extra != no { notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ] | notice $nick áá^- %pack3extra }
  262. n291=  else {
  263. n292=    notice $nick #3-[ $+ %pack3size $+ k $+ ]- $+ %pack3gets $+ x $+ -[ $+ %pack3desc - %pack3desc1 $+ ]
  264. n293=  }
  265. n294=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | notice $nick Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     amsg XDCC LIST generated by %inferno by R-66Y and [eXo] }
  266. n295=  else {
  267. n296=    notice $nick Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  268. n297=    notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo]
  269. n298=  }
  270. n299=}
  271. n300=3:XDCC SEND #1: {
  272. n301=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  273. n302=  else goto send
  274. n303=  halt
  275. n304=  :send
  276. n305=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  277. n306=  inc %packleached %pack1size
  278. n307=  inc %pack1gets 1
  279. n308=  notice $nick -[( Preparing to send you  $+ %pack1desc $+  which is  $+ %pack1size $+ k $+  )]-
  280. n309=  dcc send $nick %pack1
  281. n310=}
  282. n311=3:XDCC SEND #2: {
  283. n312=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  284. n313=  else goto send
  285. n314=  halt
  286. n315=  :send
  287. n316=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  288. n317=  inc %packleached %pack2size
  289. n318=  inc %pack2gets 1
  290. n319=  notice $nick -[( Preparing to send you  $+ %pack2desc $+  which is  $+ %pack2size $+ k $+  )]-
  291. n320=  dcc send $nick %pack2
  292. n321=}
  293. n322=3:XDCC SEND #3: {
  294. n323=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  295. n324=  else goto send
  296. n325=  halt
  297. n326=  :send
  298. n327=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  299. n328=  inc %packleached %pack3size
  300. n329=  inc %pack3gets 1
  301. n330=  notice $nick -[( Preparing to send you  $+ %pack3desc $+  which is  $+ %pack3size $+ k $+  )]-
  302. n331=  dcc send $nick %pack3
  303. n332=}
  304. n333=#3pack end
  305. n334=#2pack disabled
  306. n335=3:XDCC LIST: {
  307. n336=  echo 3 -s {I} Recieved CTCP $parm1 $parm2 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  308. n337=  set %packslots { %packslot - $send(0) }
  309. n338=  notice $nick  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  310. n339=  notice $nick Total offered-[ $+ %packsize $+ k $+ ]  
  311. n340=  notice $nick  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  312. n341=  if %pack1extra != no { notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | notice $nick  áá^- %pack1extra }
  313. n342=  else {
  314. n343=    notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  315. n344=  }
  316. n345=  if %pack2extra != no { notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ] | notice $nick áá^- %pack2extra }
  317. n346=  else {
  318. n347=    notice $nick #2-[ $+ %pack2size $+ k $+ ]- $+ %pack2gets $+ x $+ -[ $+ %pack2desc - %pack2desc1 $+ ]
  319. n348=  }
  320. n349=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | notice $nick Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo] }
  321. n350=  else {
  322. n351=    notice $nick Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  323. n352=    notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo]
  324. n353=  }
  325. n354=}
  326. n355=3:XDCC SEND #1: {
  327. n356=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  328. n357=  else goto send
  329. n358=  halt
  330. n359=  :send
  331. n360=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  332. n361=  inc %packleached %pack1size
  333. n362=  inc %pack1gets 1
  334. n363=  notice $nick -[( Preparing to send you  $+ %pack1desc $+  which is  $+ %pack1size $+ k $+  )]-
  335. n364=  dcc send $nick %pack1
  336. n365=}
  337. n366=3:XDCC SEND #2: {
  338. n367=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  339. n368=  else goto send
  340. n369=  halt 
  341. n370=  :send
  342. n371=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  343. n372=  inc %packleached %pack2size
  344. n373=  inc %pack2gets 1
  345. n374=  notice $nick -[( Preparing to send you  $+ %pack2desc $+  which is  $+ %pack2size $+ k $+  )]-
  346. n375=  dcc send $nick %pack2
  347. n376=}
  348. n377=#2pack end
  349. n378=#1pack disabled
  350. n379=3:XDCC LIST: {
  351. n380=  echo 3 -s {I} Recieved CTCP $parm1 $parm2 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  352. n381=  set %packslots { %packslot - $send(0) }
  353. n382=  notice $nick  $+ %packs $+  packs offered with  $+ %packslots $+  of  $+ %packslot $+  slots open.
  354. n383=  notice $nick Total offered-[ $+ %packsize $+ k $+ ]  
  355. n384=  notice $nick  $+ Type /ctcp $me XDCC LIST fo my list, /ctcp $me XDCC SEND #X fo a send. $+ 
  356. n385=  if %pack1extra != no { notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ] | notice $nick  áá^- %pack1extra }
  357. n386=  else {
  358. n387=    notice $nick #1-[ $+ %pack1size $+ k $+ ]- $+ %pack1gets $+ x $+ -[ $+ %pack1desc - %pack1desc1 $+ ]
  359. n388=  }
  360. n389=  if %packleached >= 1000 { set %packleached { %packleached / 1000 } | notice $nick Total leached-[ $+ %packleached $+ mb $+ ]- $+ %inferno $+  |     notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo] }
  361. n390=  else {
  362. n391=    notice $nick Total leached-[ $+ %packleached $+ k $+ ]- $+ %inferno $+ 
  363. n392=    notice $nick XDCC LIST generated by %inferno by R-66Y and [eXo]
  364. n393=  }
  365. n394=}
  366. n395=3:XDCC SEND #1: {
  367. n396=  if $send(0) == %packslots { notice $nick -[( Sorry.  Queue is full.  Please try again later. )]- | halt }
  368. n397=  else goto send
  369. n398=  halt
  370. n399=  :send
  371. n400=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  372. n401=  inc %packleached %pack1size
  373. n402=  inc %pack1gets 1
  374. n403=  notice $nick -[( Preparing to send you  $+ %pack1desc $+  which is  $+ %pack1size $+ k $+  )]-
  375. n404=  dcc send $nick %pack1
  376. n405=}
  377. n406=#1pack end
  378. n407=#votebooth disabled
  379. n408=3:YES: {
  380. n409=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  381. n410=  if ($address isin %voteaddy) goto voted
  382. n411=  else goto vote
  383. n412=  halt
  384. n413=  :voted
  385. n414=  raw -q notice $nick :YES -[( Trying to vote AGAIN?  Tsk tsk! )]-
  386. n415=  halt
  387. n416=  :vote
  388. n417=  inc %yes 1
  389. n418=  set %votebooth %votebooth $nick $+ ,
  390. n419=  set %voteaddy %voteaddy $address
  391. n420=  raw -q notice $nick :YES -[( Yo votes been added to "YES." )]-
  392. n421=}
  393. n422=3:NO: {
  394. n423=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  395. n424=  if ($address isin %voteaddy) goto voted
  396. n425=  else goto vote
  397. n426=  halt
  398. n427=  :voted
  399. n428=  raw -q notice $nick :NO -[( Trying to vote AGAIN?  Tsk tsk! )]-
  400. n429=  halt
  401. n430=  :vote
  402. n431=  inc %no 1
  403. n432=  set %votebooth %votebooth $nick $+ ,
  404. n433=  set %voteaddy %voteaddy $address
  405. n434=  raw -q notice $nick :NO -[( Yo votes been added to "NO." )]-
  406. n435=}
  407. n436=#votebooth end
  408. n437=3:ECHO: {
  409. n438=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  410. n439=  ignore $nick 3
  411. n440=}
  412. n441=#pager disabled
  413. n442=3:PAGE: {
  414. n443=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  415. n444=  wavplay c:\inferno\extras\page.wav
  416. n445=  raw -q notice $nick :PAGE -[( $nick $+ , I've been paged.  If I don't respond, j00 = Out of luck.  I'm away with the reason: %awayreason  (My logger is %recorder2 $+ .)  %inferno )]-
  417. n446=}
  418. n447=#pager end
  419. n448=3:VERSION: {
  420. n449=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  421. n450=  raw -q -[( $read c:\inferno\extras\version.txt -[( INFERNO 1.2b2 http://r-66y.home.ml.org )]-
  422. n451=  ignore -tau10 *!*@ $+ $site
  423. n452=  halt
  424. n453=}
  425. n454=3:PING: {
  426. n455=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  427. n456=  raw -q notice $nick :PING -[( PONGNOPONGNOPONGNOPONGNOPONG )]-
  428. n457=  halt
  429. n458=}
  430. n459=3:TIME: {
  431. n460=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  432. n461=  raw -q notice $nick :TIME -[( It is currently $time on $date )]-
  433. n462=  halt
  434. n463=}
  435. n464=3:TROUT: {
  436. n465=  echo 3 -s {I} Recieved CTCP $parm1 from $nick $chr(91) $+ $nick $+ *!* $+ $address $+ $chr(93)
  437. n466=  raw -q notice $nick :TROUT -[( *chew*Trout?*chew chew*What trout? )]-
  438. n467=}
  439.